/*----------------------------------------\
| Translate an entire library of datasets into output files; one file|
| per dataset with the same names as the dataset names; |
|-------------------------------------------|
|--------------------------------------------------------------------|
|---------------------------|
| Parameters: |
| libname - the dataset library name need to be translated; |
| outputdir - the directory you want to save the output files; |
|-----------------------------|
|--------------------------------------------------------------------|
|---------------------------------------|
| Example:%crfile(libname=acedcrf, outputdir=d:\temp\, filetype=doc);|
| Usage: %crfile(libname=, outputdir=); |
\----------------------------------------*/
%macro crfile(libname=, outputdir=, filetype=xls);
/*-------------------------------------------\
| Copy Right: Duo Zhou; |
| Created: 1-1-2002 11:20pm; |
| Purpose: List all datasets under the |
| library reference; |
\-------------------------------------------*/
%local num i ndsns dsn filetype fileext _tmplast_;
%let _tmplast_=&syslast;
%let libname=%sysfunc(dequote(&libname));
%let outputdir=%sysfunc(dequote(&outputdir));
%if (%length(%trim(%left(&outputdir))) >1) %then %do;
%if (%substr(&outputdir, %length(&outputdir), 1) ne %str(\)) %then %do;
%let outputdir=&outputdir.\;
%end;
%put outputdir is &outputdir.;
%end;
%if (%index(%quote(%upcase(&filetype)),%quote(XLS))) %then %do;
%let filetype=EXCEL;
%let fileext=.xls;
%end;
%else %if (%index(%quote(%upcase(&filetype)),%quote(DOC))) %then %do;
%let filetype=WORD;
%let fileext=.doc;
%end;
%else %if (%index(%quote(%upcase(&filetype)),%quote(HTML))) %then %do;
%let filetype=HTML;
%let fileext=.html;
%end;
proc datasets library=&libname memtype=data;
contents out=work._temp1(keep=memname engine nobs varnum name sorted sortedby nodupkey noduprec) data=_all_ noprint;
run;
proc sort data=_temp1; by memname sorted sortedby; run;
%if %nobs(_temp1)>0 %then %do;
/*** Cocatenate data set names ***/
proc sql noprint;
select distinct memname
into :datanames separated by ' '
from _temp1
where name ne ' ';
quit;%put datanames is &datanames.;
/*** Create excel files ***/
%let ndsns=%words(&datanames);
%put There are &ndsns data involved.;
ods listing close;
%do i=1 %to &ndsns;
%let filename=;
%let dsn&i=%qscan(&datanames, &i, %str( ));
%let filename=&&dsn&i..&fileext;
%put SAS are writing to the &i.th file: "&outputdir.&&dsn&i..&fileext".;
ods html file="&outputdir.&filename"
style=duostyle;
proc print data=&libname..&&dsn&i label;
title "&&dsn&i";
run;
ods html close;
%end;
ods listing;
proc datasets library=work nolist;
delete _temp1;
run;quit;
%end;
%else %put There is no datasets in the library "&libname".;
%let syslast=&_tmplast_;
%mend crfile;